home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / ExcellenceV3.1_d1.adf / prologue < prev    next >
Text File  |  1993-06-19  |  2KB  |  82 lines
  1. %!PS-Adobe-
  2. %%Creator: excellence! (c) 1987,88, Micro-Systems Software
  3. %%EndComments
  4. 100 dict begin
  5.  
  6. /AmigaCoding [
  7. 45 /hyphen 152 /dotlessi /grave /acute /circumflex /tilde /dieresis
  8. /ring /cedilla /space 164 /currency 166 /bar 168 /dieresis /copyright
  9. /ordfeminine 172 /logicalnot /.notdef /registered /macron /ring
  10. /.notdef /.notdef /dagger /.notdef /.notdef 183 /bullet 185 /.notdef
  11. /ordmasculine 188 /.notdef /.notdef /.notdef 192 /Agrave /Aacute
  12. /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute
  13. /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /.notdef
  14. /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /.notdef
  15. /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /.notdef /.notdef
  16. /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring
  17. /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute
  18. /icircumflex /idieresis /.notdef /ntilde /ograve /oacute /ocircumflex
  19. /otilde /odieresis /.notdef /oslash /ugrave /uacute /ucircumflex
  20. /udieresis /.notdef /.notdef /ydieresis
  21. ] def
  22.  
  23. /recode {
  24.    findfont begin
  25.    currentdict dup length dict begin {
  26.       1 index /FID ne {def} {pop pop} ifelse
  27.    } forall
  28.    /FontName exch def dup length 0 ne {
  29.       /Encoding Encoding 256 array copy def
  30.       0 exch {
  31.          dup type /nametype eq {
  32.             Encoding 2 index 2 index put
  33.             pop 1 add
  34.          }{
  35.             exch pop
  36.          } ifelse
  37.       } forall
  38.    } if pop
  39.    currentdict dup end end
  40.    /FontName get exch definefont pop
  41. } bind def
  42.  
  43. /chgfont2 {
  44.    cvn AmigaCoding /AmigaFont 3 2 roll
  45.    recode /AmigaFont findfont exch
  46.    makefont
  47. } bind def
  48.  
  49. /MyDict 20 dict def
  50. /fontstr 50 string def
  51. /fontnam 20 string def
  52. /fontnl 0 def
  53. /chgfont {
  54.    dup /fontnam exch def
  55.    length /fontnl exch def
  56.    dup 0 get 10 mul cvi
  57.    fontnam fontstr copy pop
  58.    fontstr fontnl 20 getinterval
  59.    cvs pop
  60.    MyDict fontstr known {
  61.       pop
  62.       MyDict fontstr get setfont
  63.    }{
  64.       fontnam chgfont2
  65.       MyDict begin
  66.       dup fontstr exch def
  67.       end setfont
  68.    } ifelse
  69. } bind def
  70.  
  71. /underline {
  72.    currentpoint currentfont dup
  73.    /FontMatrix get /yscale exch 3 get def
  74.    /FontInfo get dup
  75.    /UnderlineThickness get yscale mul setlinewidth
  76.    /uline exch /UnderlinePosition get yscale mul def
  77.    4 2 roll uline add 4 2 roll uline add moveto lineto stroke
  78. } bind def
  79.  
  80. %%EndProlog
  81.  
  82.